home *** CD-ROM | disk | FTP | other *** search
/ Yellows - Privacy (Deluxe) / Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso / footage / pict11.dxr / 00048.ls < prev    next >
Encoding:
Text File  |  1996-07-10  |  2.8 KB  |  105 lines
  1. on checkkeypict
  2.   global mode, foreframe, movieName, delaytime, moviepos, movieshow, movieprepos, g_pause, womannum, pict, g_image, scastname
  3.   if the keyCode = 115 then
  4.     puppetSprite(40, 0)
  5.     puppetSprite(39, 0)
  6.     puppetSprite(38, 1)
  7.     set the castNum of sprite 38 to the number of member "enter,on"
  8.     updateStage()
  9.     if objectp(g_image) then
  10.       g_image(mdispose)
  11.     end if
  12.     go(1, "@\..\MAINMENU")
  13.   else
  14.     if (the keyCode = 76) or (the keyCode = 36) then
  15.       puppetSprite(39, 1)
  16.       puppetSprite(38, 0)
  17.       puppetSprite(40, 0)
  18.       set the castNum of sprite 39 to the number of member "return,on"
  19.       updateStage()
  20.       if objectp(g_image) then
  21.         g_image(mdispose)
  22.       end if
  23.       go(1, womannum)
  24.     else
  25.       if the key = TAB then
  26.         puppetSprite(38, 0)
  27.         puppetSprite(39, 0)
  28.         puppetSprite(40, 1)
  29.         set the castNum of sprite 40 to the number of member "tab,on"
  30.         updateStage()
  31.         if movieshow = 0 then
  32.           set movieshow to 1
  33.           set the member of sprite 24 to member (pict + getAt(qtframelist, moviepos)) of castLib scastname
  34.           set the visible of sprite 23 to 1
  35.           set the visible of sprite 24 to 1
  36.           set the visible of sprite 29 to 1
  37.           updateStage()
  38.         else
  39.           set movieshow to 0
  40.           set the visible of sprite 23 to 0
  41.           set the visible of sprite 24 to 0
  42.           set the visible of sprite 29 to 0
  43.           updateStage()
  44.         end if
  45.         set the castNum of sprite 40 to the number of member "tab,off"
  46.         updateStage()
  47.         puppetSprite(40, 0)
  48.       else
  49.         puppetSprite(38, 0)
  50.         puppetSprite(39, 0)
  51.         puppetSprite(40, 0)
  52.         updateStage()
  53.       end if
  54.     end if
  55.   end if
  56.   if the key = "1" then
  57.     set delaytime to 120
  58.     speedshow()
  59.     updateStage()
  60.   end if
  61.   if the key = "2" then
  62.     set delaytime to 60
  63.     speedshow()
  64.     updateStage()
  65.   end if
  66.   if the key = "3" then
  67.     set delaytime to 30
  68.     speedshow()
  69.     updateStage()
  70.   end if
  71.   if the commandDown and (the keyCode = 12) then
  72.     if objectp(g_image) then
  73.       g_image(mdispose)
  74.     end if
  75.     go(1, "@\..\QUIT")
  76.   end if
  77. end
  78.  
  79. on cursorcontrol spnum
  80.   global foreframe, mode
  81.   puppetSprite(48, 1)
  82.   set the visible of sprite 48 to 1
  83.   set the ink of sprite 48 to 36
  84.   set the type of sprite 48 to 1
  85.   set the castNum of sprite 48 to the number of member "cursorw"
  86.   cursor(200)
  87.   if rollOver(spnum) then
  88.     cursor(200)
  89.     set the locH of sprite 48 to the mouseH
  90.     set the locV of sprite 48 to the mouseV
  91.     updateStage()
  92.     if the mouseDown then
  93.       set the visible of sprite 48 to 0
  94.       updateStage()
  95.       cursor(-1)
  96.       set the keyDownScript to "checkKeyPict"
  97.       set foreframe to the frame
  98.       speedshow()
  99.       go("help" & mode)
  100.       exit
  101.     end if
  102.   end if
  103.   go(the frame)
  104. end
  105.